home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / mac / soundutl / vmtrs10s.hqx / VUMeters / Testing / VU Mathematica < prev    next >
Text File  |  1992-01-22  |  12KB  |  575 lines
  1. (*^
  2.  
  3. ::[paletteColors = 128; automaticGrouping; currentKernel; 
  4.     fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8,  24, "Times"; ;
  5.     fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6,  18, "Times"; ;
  6.     fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6,  14, "Times"; ;
  7.     fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20,  18, "Times"; ;
  8.     fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15,  14, "Times"; ;
  9.     fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12,  12, "Times"; ;
  10.     fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  11.     fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Times"; ;
  12.     fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5,  12, "Courier"; ;
  13.     fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
  14.     fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5,  12, "Courier"; ;
  15.     fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
  16.     fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5,  12, "Courier"; ;
  17.     fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1,  12, "Courier"; ;
  18.     fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1,  10, "Geneva"; ;
  19.     fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  20.     fontset = Left Header, inactive,  12, "Times"; ;
  21.     fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L1,  12, "Times"; ;
  22.     fontset = Left Footer, inactive,  12, "Times"; ;
  23.     fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Times"; ;
  24.     fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  25.     fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  26.     fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  27.     fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  28.     fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  29.     fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  30.     fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;]
  31. :[font = input; preserveAspect; startGroup; ]
  32. 3
  33. :[font = output; output; inactive; preserveAspect; endGroup; ]
  34. 3
  35. ;[o]
  36. 3
  37. :[font = input; preserveAspect; startGroup; ]
  38. Solve[{a x1 + b == d/2, a x2 + b == -d/2},{a, b}]
  39. :[font = output; output; inactive; preserveAspect; endGroup; ]
  40. {{a -> d/(x1 - x2), b -> 
  41.     -(d*x1)/(2*(x1 - x2)) - (d*x2)/(2*(x1 - x2))}}
  42. ;[o]
  43.           d            -(d x1)        d x2
  44. {{a -> -------, b -> ----------- - -----------}}
  45.        x1 - x2       2 (x1 - x2)   2 (x1 - x2)
  46. :[font = input; preserveAspect; startGroup; ]
  47. x1=Log[10-5];x2=Log[10- -60];d=180;a=d/(x1-x2);b=-d/2(x1+x2)/(x1-x2)
  48. :[font = output; output; inactive; preserveAspect; endGroup; ]
  49. (-90*(Log[5] + Log[70]))/(Log[5] - Log[70])
  50. ;[o]
  51. -90 (Log[5] + Log[70])
  52. ----------------------
  53.    Log[5] - Log[70]
  54. :[font = input; preserveAspect; ]
  55. f[dB_] := a Log[10-dB] + b;
  56. :[font = input; preserveAspect; startGroup; ]
  57. Plot[f[x],{x,-60,5}]
  58. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 174; ]
  59. %!
  60. %%Creator: Mathematica
  61. %%AspectRatio: 0.61803 
  62. MathPictureStart
  63. /Courier findfont 10  scalefont  setfont
  64. % Scaling calculations
  65. 0.90293 0.014652 0.309017 0.00327002 [
  66. [(-60)] 0.02381 0.30902 0 2 Msboxa
  67. [(-50)] 0.17033 0.30902 0 2 Msboxa
  68. [(-40)] 0.31685 0.30902 0 2 Msboxa
  69. [(-30)] 0.46337 0.30902 0 2 Msboxa
  70. [(-20)] 0.60989 0.30902 0 2 Msboxa
  71. [(-10)] 0.75641 0.30902 0 2 Msboxa
  72. [(-75)] 0.89043 0.06377 1 0 Msboxa
  73. [(-50)] 0.89043 0.14552 1 0 Msboxa
  74. [(-25)] 0.89043 0.22727 1 0 Msboxa
  75. [(25)] 0.89043 0.39077 1 0 Msboxa
  76. [(50)] 0.89043 0.47252 1 0 Msboxa
  77. [(75)] 0.89043 0.55427 1 0 Msboxa
  78. [ -0.001 -0.001 0 0 ]
  79. [ 1.001 0.61903 0 0 ]
  80. ] MathScale
  81. % Start of Graphics
  82. 1 setlinecap
  83. 1 setlinejoin
  84. newpath
  85. %%Object: Graphics
  86. [ ] 0 setdash
  87. 0 setgray
  88. gsave
  89. gsave
  90. 0.002 setlinewidth
  91. 0.02381 0.30902 moveto
  92. 0.02381 0.31527 lineto
  93. stroke
  94. grestore
  95. [(-60)] 0.02381 0.30902 0 2 Mshowa
  96. gsave
  97. 0.002 setlinewidth
  98. 0.17033 0.30902 moveto
  99. 0.17033 0.31527 lineto
  100. stroke
  101. grestore
  102. [(-50)] 0.17033 0.30902 0 2 Mshowa
  103. gsave
  104. 0.002 setlinewidth
  105. 0.31685 0.30902 moveto
  106. 0.31685 0.31527 lineto
  107. stroke
  108. grestore
  109. [(-40)] 0.31685 0.30902 0 2 Mshowa
  110. gsave
  111. 0.002 setlinewidth
  112. 0.46337 0.30902 moveto
  113. 0.46337 0.31527 lineto
  114. stroke
  115. grestore
  116. [(-30)] 0.46337 0.30902 0 2 Mshowa
  117. gsave
  118. 0.002 setlinewidth
  119. 0.60989 0.30902 moveto
  120. 0.60989 0.31527 lineto
  121. stroke
  122. grestore
  123. [(-20)] 0.60989 0.30902 0 2 Mshowa
  124. gsave
  125. 0.002 setlinewidth
  126. 0.75641 0.30902 moveto
  127. 0.75641 0.31527 lineto
  128. stroke
  129. grestore
  130. [(-10)] 0.75641 0.30902 0 2 Mshowa
  131. gsave
  132. 0.001 setlinewidth
  133. 0.05311 0.30902 moveto
  134. 0.05311 0.31277 lineto
  135. stroke
  136. grestore
  137. gsave
  138. 0.001 setlinewidth
  139. 0.08242 0.30902 moveto
  140. 0.08242 0.31277 lineto
  141. stroke
  142. grestore
  143. gsave
  144. 0.001 setlinewidth
  145. 0.11172 0.30902 moveto
  146. 0.11172 0.31277 lineto
  147. stroke
  148. grestore
  149. gsave
  150. 0.001 setlinewidth
  151. 0.14103 0.30902 moveto
  152. 0.14103 0.31277 lineto
  153. stroke
  154. grestore
  155. gsave
  156. 0.001 setlinewidth
  157. 0.19963 0.30902 moveto
  158. 0.19963 0.31277 lineto
  159. stroke
  160. grestore
  161. gsave
  162. 0.001 setlinewidth
  163. 0.22894 0.30902 moveto
  164. 0.22894 0.31277 lineto
  165. stroke
  166. grestore
  167. gsave
  168. 0.001 setlinewidth
  169. 0.25824 0.30902 moveto
  170. 0.25824 0.31277 lineto
  171. stroke
  172. grestore
  173. gsave
  174. 0.001 setlinewidth
  175. 0.28755 0.30902 moveto
  176. 0.28755 0.31277 lineto
  177. stroke
  178. grestore
  179. gsave
  180. 0.001 setlinewidth
  181. 0.34615 0.30902 moveto
  182. 0.34615 0.31277 lineto
  183. stroke
  184. grestore
  185. gsave
  186. 0.001 setlinewidth
  187. 0.37546 0.30902 moveto
  188. 0.37546 0.31277 lineto
  189. stroke
  190. grestore
  191. gsave
  192. 0.001 setlinewidth
  193. 0.40476 0.30902 moveto
  194. 0.40476 0.31277 lineto
  195. stroke
  196. grestore
  197. gsave
  198. 0.001 setlinewidth
  199. 0.43407 0.30902 moveto
  200. 0.43407 0.31277 lineto
  201. stroke
  202. grestore
  203. gsave
  204. 0.001 setlinewidth
  205. 0.49267 0.30902 moveto
  206. 0.49267 0.31277 lineto
  207. stroke
  208. grestore
  209. gsave
  210. 0.001 setlinewidth
  211. 0.52198 0.30902 moveto
  212. 0.52198 0.31277 lineto
  213. stroke
  214. grestore
  215. gsave
  216. 0.001 setlinewidth
  217. 0.55128 0.30902 moveto
  218. 0.55128 0.31277 lineto
  219. stroke
  220. grestore
  221. gsave
  222. 0.001 setlinewidth
  223. 0.58059 0.30902 moveto
  224. 0.58059 0.31277 lineto
  225. stroke
  226. grestore
  227. gsave
  228. 0.001 setlinewidth
  229. 0.63919 0.30902 moveto
  230. 0.63919 0.31277 lineto
  231. stroke
  232. grestore
  233. gsave
  234. 0.001 setlinewidth
  235. 0.6685 0.30902 moveto
  236. 0.6685 0.31277 lineto
  237. stroke
  238. grestore
  239. gsave
  240. 0.001 setlinewidth
  241. 0.6978 0.30902 moveto
  242. 0.6978 0.31277 lineto
  243. stroke
  244. grestore
  245. gsave
  246. 0.001 setlinewidth
  247. 0.72711 0.30902 moveto
  248. 0.72711 0.31277 lineto
  249. stroke
  250. grestore
  251. gsave
  252. 0.001 setlinewidth
  253. 0.78571 0.30902 moveto
  254. 0.78571 0.31277 lineto
  255. stroke
  256. grestore
  257. gsave
  258. 0.001 setlinewidth
  259. 0.81502 0.30902 moveto
  260. 0.81502 0.31277 lineto
  261. stroke
  262. grestore
  263. gsave
  264. 0.001 setlinewidth
  265. 0.84432 0.30902 moveto
  266. 0.84432 0.31277 lineto
  267. stroke
  268. grestore
  269. gsave
  270. 0.001 setlinewidth
  271. 0.87363 0.30902 moveto
  272. 0.87363 0.31277 lineto
  273. stroke
  274. grestore
  275. gsave
  276. 0.001 setlinewidth
  277. 0.93223 0.30902 moveto
  278. 0.93223 0.31277 lineto
  279. stroke
  280. grestore
  281. gsave
  282. 0.001 setlinewidth
  283. 0.96154 0.30902 moveto
  284. 0.96154 0.31277 lineto
  285. stroke
  286. grestore
  287. gsave
  288. 0.001 setlinewidth
  289. 0.99084 0.30902 moveto
  290. 0.99084 0.31277 lineto
  291. stroke
  292. grestore
  293. gsave
  294. 0.002 setlinewidth
  295. 0 0.30902 moveto
  296. 1 0.30902 lineto
  297. stroke
  298. grestore
  299. gsave
  300. 0.002 setlinewidth
  301. 0.90293 0.06377 moveto
  302. 0.90918 0.06377 lineto
  303. stroke
  304. grestore
  305. [(-75)] 0.89043 0.06377 1 0 Mshowa
  306. gsave
  307. 0.002 setlinewidth
  308. 0.90293 0.14552 moveto
  309. 0.90918 0.14552 lineto
  310. stroke
  311. grestore
  312. [(-50)] 0.89043 0.14552 1 0 Mshowa
  313. gsave
  314. 0.002 setlinewidth
  315. 0.90293 0.22727 moveto
  316. 0.90918 0.22727 lineto
  317. stroke
  318. grestore
  319. [(-25)] 0.89043 0.22727 1 0 Mshowa
  320. gsave
  321. 0.002 setlinewidth
  322. 0.90293 0.39077 moveto
  323. 0.90918 0.39077 lineto
  324. stroke
  325. grestore
  326. [(25)] 0.89043 0.39077 1 0 Mshowa
  327. gsave
  328. 0.002 setlinewidth
  329. 0.90293 0.47252 moveto
  330. 0.90918 0.47252 lineto
  331. stroke
  332. grestore
  333. [(50)] 0.89043 0.47252 1 0 Mshowa
  334. gsave
  335. 0.002 setlinewidth
  336. 0.90293 0.55427 moveto
  337. 0.90918 0.55427 lineto
  338. stroke
  339. grestore
  340. [(75)] 0.89043 0.55427 1 0 Mshowa
  341. gsave
  342. 0.001 setlinewidth
  343. 0.90293 0.08012 moveto
  344. 0.90668 0.08012 lineto
  345. stroke
  346. grestore
  347. gsave
  348. 0.001 setlinewidth
  349. 0.90293 0.09647 moveto
  350. 0.90668 0.09647 lineto
  351. stroke
  352. grestore
  353. gsave
  354. 0.001 setlinewidth
  355. 0.90293 0.11282 moveto
  356. 0.90668 0.11282 lineto
  357. stroke
  358. grestore
  359. gsave
  360. 0.001 setlinewidth
  361. 0.90293 0.12917 moveto
  362. 0.90668 0.12917 lineto
  363. stroke
  364. grestore
  365. gsave
  366. 0.001 setlinewidth
  367. 0.90293 0.16187 moveto
  368. 0.90668 0.16187 lineto
  369. stroke
  370. grestore
  371. gsave
  372. 0.001 setlinewidth
  373. 0.90293 0.17822 moveto
  374. 0.90668 0.17822 lineto
  375. stroke
  376. grestore
  377. gsave
  378. 0.001 setlinewidth
  379. 0.90293 0.19457 moveto
  380. 0.90668 0.19457 lineto
  381. stroke
  382. grestore
  383. gsave
  384. 0.001 setlinewidth
  385. 0.90293 0.21092 moveto
  386. 0.90668 0.21092 lineto
  387. stroke
  388. grestore
  389. gsave
  390. 0.001 setlinewidth
  391. 0.90293 0.24362 moveto
  392. 0.90668 0.24362 lineto
  393. stroke
  394. grestore
  395. gsave
  396. 0.001 setlinewidth
  397. 0.90293 0.25997 moveto
  398. 0.90668 0.25997 lineto
  399. stroke
  400. grestore
  401. gsave
  402. 0.001 setlinewidth
  403. 0.90293 0.27632 moveto
  404. 0.90668 0.27632 lineto
  405. stroke
  406. grestore
  407. gsave
  408. 0.001 setlinewidth
  409. 0.90293 0.29267 moveto
  410. 0.90668 0.29267 lineto
  411. stroke
  412. grestore
  413. gsave
  414. 0.001 setlinewidth
  415. 0.90293 0.32537 moveto
  416. 0.90668 0.32537 lineto
  417. stroke
  418. grestore
  419. gsave
  420. 0.001 setlinewidth
  421. 0.90293 0.34172 moveto
  422. 0.90668 0.34172 lineto
  423. stroke
  424. grestore
  425. gsave
  426. 0.001 setlinewidth
  427. 0.90293 0.35807 moveto
  428. 0.90668 0.35807 lineto
  429. stroke
  430. grestore
  431. gsave
  432. 0.001 setlinewidth
  433. 0.90293 0.37442 moveto
  434. 0.90668 0.37442 lineto
  435. stroke
  436. grestore
  437. gsave
  438. 0.001 setlinewidth
  439. 0.90293 0.40712 moveto
  440. 0.90668 0.40712 lineto
  441. stroke
  442. grestore
  443. gsave
  444. 0.001 setlinewidth
  445. 0.90293 0.42347 moveto
  446. 0.90668 0.42347 lineto
  447. stroke
  448. grestore
  449. gsave
  450. 0.001 setlinewidth
  451. 0.90293 0.43982 moveto
  452. 0.90668 0.43982 lineto
  453. stroke
  454. grestore
  455. gsave
  456. 0.001 setlinewidth
  457. 0.90293 0.45617 moveto
  458. 0.90668 0.45617 lineto
  459. stroke
  460. grestore
  461. gsave
  462. 0.001 setlinewidth
  463. 0.90293 0.48887 moveto
  464. 0.90668 0.48887 lineto
  465. stroke
  466. grestore
  467. gsave
  468. 0.001 setlinewidth
  469. 0.90293 0.50522 moveto
  470. 0.90668 0.50522 lineto
  471. stroke
  472. grestore
  473. gsave
  474. 0.001 setlinewidth
  475. 0.90293 0.52157 moveto
  476. 0.90668 0.52157 lineto
  477. stroke
  478. grestore
  479. gsave
  480. 0.001 setlinewidth
  481. 0.90293 0.53792 moveto
  482. 0.90668 0.53792 lineto
  483. stroke
  484. grestore
  485. gsave
  486. 0.001 setlinewidth
  487. 0.90293 0.04742 moveto
  488. 0.90668 0.04742 lineto
  489. stroke
  490. grestore
  491. gsave
  492. 0.001 setlinewidth
  493. 0.90293 0.03107 moveto
  494. 0.90668 0.03107 lineto
  495. stroke
  496. grestore
  497. gsave
  498. 0.001 setlinewidth
  499. 0.90293 0.01472 moveto
  500. 0.90668 0.01472 lineto
  501. stroke
  502. grestore
  503. gsave
  504. 0.001 setlinewidth
  505. 0.90293 0.57062 moveto
  506. 0.90668 0.57062 lineto
  507. stroke
  508. grestore
  509. gsave
  510. 0.001 setlinewidth
  511. 0.90293 0.58697 moveto
  512. 0.90668 0.58697 lineto
  513. stroke
  514. grestore
  515. gsave
  516. 0.001 setlinewidth
  517. 0.90293 0.60332 moveto
  518. 0.90668 0.60332 lineto
  519. stroke
  520. grestore
  521. gsave
  522. 0.002 setlinewidth
  523. 0.90293 0 moveto
  524. 0.90293 0.61803 lineto
  525. stroke
  526. grestore
  527. grestore
  528. 0 0 moveto
  529. 1 0 lineto
  530. 1 0.61803 lineto
  531. 0 0.61803 lineto
  532. closepath
  533. clip
  534. newpath
  535. gsave
  536. gsave
  537. 0.004 setlinewidth
  538. 0.02381 0.01472 moveto
  539. 0.06349 0.02352 lineto
  540. 0.10317 0.03268 lineto
  541. 0.14286 0.04223 lineto
  542. 0.18254 0.05222 lineto
  543. 0.22222 0.06267 lineto
  544. 0.2619 0.07363 lineto
  545. 0.30159 0.08516 lineto
  546. 0.34127 0.09732 lineto
  547. 0.38095 0.11018 lineto
  548. 0.42063 0.12383 lineto
  549. 0.46032 0.13837 lineto
  550. 0.5 0.15392 lineto
  551. 0.53968 0.17064 lineto
  552. 0.57937 0.18872 lineto
  553. 0.61905 0.20839 lineto
  554. 0.65873 0.22996 lineto
  555. 0.69841 0.25385 lineto
  556. 0.7381 0.2806 lineto
  557. 0.77778 0.31101 lineto
  558. 0.81746 0.34623 lineto
  559. 0.85714 0.38807 lineto
  560. 0.89683 0.43962 lineto
  561. 0.93651 0.50677 lineto
  562. 0.95635 0.54986 lineto
  563. 0.97619 0.60332 lineto
  564. stroke
  565. grestore
  566. grestore
  567. % End of Graphics
  568. MathPictureEnd
  569. :[font = output; output; inactive; preserveAspect; endGroup; ]
  570. The Unformatted text for this cell was not generated.
  571. Use options in the Actions Preferences dialog box to 
  572. control when Unformatted text is generated.
  573. ;[o]
  574. -Graphics-
  575. ^*)